home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 4 / CU Amiga Magazine's Super CD-ROM 04 (1996)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1996-11].iso / magazine / psion / utils / macsys.lzx / dial.mcr < prev    next >
Text File  |  2017-12-31  |  773b  |  40 lines
  1. rem -- This macro allows to use the standard Free-form dialing
  2. rem -- dialog to dial alphanumeric phone numbers. Try assigning
  3. rem -- it to Control-Dial (Control-Psion-Help)
  4.  
  5. PROC macro:
  6. cache on
  7. UseApp:( "active" )
  8. if Info:(4) = 0
  9.     UseApp:( "time" )
  10.     ToFront:
  11. endif
  12. SendKey:( 291, 12, 1 ) rem Control-Dial
  13. keys:(1)
  14. var%(3) = CurrPid%:
  15. ENDP
  16.  
  17. PROC keys:( state% )
  18. local i%
  19. rem Capture all alphabetical keys and Esc
  20. while i% < 26
  21.     Hotkey:( %a + i%, 0, "convert", state% )
  22.     i% = i% + 1
  23. endwh
  24. Hotkey:( esc%, 0, "convert", state% )
  25. ENDP
  26.  
  27. PROC convert:( k%, m% )
  28. local pos%
  29. UsePid:( var%(3) )
  30. if k% = esc%
  31.     Esc:
  32.     keys:(0)
  33. else
  34.     pos% = loc( "ABCDEFGHIJKLMNOPRSTUVWXY", chr$( k% ) )
  35.     if pos%
  36.         Key:( %1 + ( pos% + 2 ) / 3 )
  37.     endif
  38. endif
  39. ENDP
  40.